home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / COMMUNIC / H399.ZIP / ODY200SH.LZH / CIS.SCR < prev    next >
Text File  |  1991-06-19  |  1KB  |  51 lines
  1.  
  2. SCRIPT CIS;
  3.  
  4. (*............................................*)
  5.  
  6. FUNC Login():Flag;
  7.  
  8. VAR CISid,CISpass:String;
  9.  
  10. BEGIN
  11.      ClrScr();
  12.      Write('=======================================|');
  13.      Write('    Calling COMPUSERVE via DialPlus    |');
  14.      Write('=======================================|');
  15.      IF FetchStr("CIS",CISid,CISpass) THEN
  16.          IF Dial('CIS') THEN
  17.              WaitFor('PRESS RETURN: ',5);
  18.              Transmit("|");
  19.              IF WaitFor('PRESS RETURN: ',5) THEN
  20.                  Delay(1);
  21.                  Transmit('ukcns|');
  22.                  WaitFor('HOST NAME:  ',60);
  23.                  Delay(1);
  24.                  Transmit('cis|');
  25.                  WaitFor('USER ID: ',60);
  26.                  Delay(1);
  27.                  Transmit(CISid);
  28.                  WaitFor('PASSWORD: ',60);
  29.                  Delay(1);
  30.                  Transmit(CISpass);
  31.                  RETURN TRUE;
  32.                ELSIF OnLine() THEN
  33.                  HangUp();
  34.              END;
  35.          END;
  36.        ELSE
  37.          Write("Password file does not contain 'CIS' line|");
  38.      END;
  39.      RETURN FALSE;
  40. END (*Login*);
  41.  
  42. (*............................................*)
  43.  
  44. BEGIN
  45.      IF Login() THEN
  46.          SetCISB(TRUE,TRUE,TRUE,FALSE);
  47.          Sleep();
  48.          SetCISB(FALSE,FALSE,TRUE,FALSE);
  49.      END;
  50. END;
  51.